home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / FALSE.P < prev    next >
Text File  |  1990-09-13  |  604b  |  28 lines
  1. temp <- <primitive 110 5 >
  2. <primitive 112 temp 1        " not " \
  3.     #( #[ 91 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " ifFalse: " \
  7.     #( #[ 33 165 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " ifTrue: " \
  11.     #( #[ 93 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " ifFalse:ifTrue: " \
  15.     #( #[ 33 165 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " ifTrue:ifFalse: " \
  19.     #( #[ 34 165 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 98 #False \
  23.     <primitive 97 #False #Boolean #\smalltlk\prelude\false.st \
  24.     #(  ) \
  25.     #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse:  ) \
  26.     temp 3 2 > >
  27.  
  28.